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RMS = Main Module for ANALYZE/RMS_FILE 18.6 “19 3:52:21 VAKX-11 Bliss<-32 V4.0-742 1 
: 1o-see= ibe 17:85:88  PiScsumeaSteascamarys Seczans.es2:1°°™ 1} 
p Ztitle "RMS = Main Module for ANALYZE/RMS FILE’ 
module rms (mainzan 
ident="V “066") = begin 


' 
(@eeeReeeeeaeeeeeeeeeeteneteeeeeetereeeterererereeeeeeteeeeeetenenetereteteee 
' 


1 
1 
: 
1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
if : - ALL RIGHTS RESERVED. - 
\¢ 1 ie THIS SOFTWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICEnSe AND WITH THE * 
14 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
got8 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it t4 : ee TRANSFERRED. S 
‘@ * 
0019 1 I! phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !« SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
oS 1 ; ” CORPORAT De. * 
:* 
$058 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0095 : :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
003? : S ccinandetibedbetennnbiansneiieniabetabeimedbemedtdbiibinanneettmnehiminieiinahie 
0028 1! 
$080 | tes 
th : Facility: VAX/VMS Analyze Facility, Main Module for ANALYZE/RMS_FILE 
$088 1! Abstract: This is the main module for the ANALYZE/RMS_FILE command. 
0034 1! It contains the routine that determines which mode we are 
0035 1! to operate in. It also contains routines that don't fit 
0036 1! anywhere else. 
ee 
it : Environment: 
0041 ; Author: Paul C. Anagnostopoulos, Creation Date: 18 February 1981 
00-8 Modified By: 
Does 1: v03-003 DGB0046 — Donald G. Blair 08-May-1984 
0 $ 1! Fix condition Rend tng for ANALYZRMS so that it 
0047 1! returns status correctly oe image exit. Rather 
0048 1! than always return anirms$_notok, return the first 
seh : error that occurs of the highest severity. 
0051 1! v03-002 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
2036 1: Change the message prefix to ANLRMS$_ to ensure that 
0055 1! message Symbo's are unique across alf ANALYZEs. This 
Boe i is necessitated by the new merged message files. 
0056 1! v03-001 PCA1002 OD a TRING couel 25-0c t-1982 
0057 1! Add the ANL SPREPARE auoTeD TRING routine to format a 
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RMS = Main Module for ANALYZE/RMS_FILE 14.8 -1984 23:52:21 VAX-11 Bliss-32_ V4.0-74 P 
Module Declarations 12-80 8-198 19:83:84 DISKSVMGHASTER CANAL? SRCIRMS..032: 1 wines 23 
1 Tsbttl "Module Declarations’ 

3 Libraries and Requires: 

: : 

Library ‘Lib’; 

require ‘rmsreq'; 


: Table of Contents: 


~ 
NO 


forward routine 
anl$rms: novalue, 
anlSunwind_handler, 
anl$worst_error_handler, 
anlSinternalize_number, 
ani$check_flags: novalue, 
an\Sprepare_quoted_string: novalue; 


' 
External References: 


external routine 
anl$check_mode, 
anl$fdl_mode, 
an\$format_error, 
anlSinteractive_mode 
cli$present: address ing_mode (general) 
LibSestablish: address fig_mode (general), 
ots$cvt_ti_l: addressing_mode(general), 


Ab Ab Ah Ah th hh hh hh bh hb bh db Ab hh dh bh hb hb hb dh bh hl 


SSSLESEALS LS SSLSALAN AS Se 


SSS3333333333 


1 ots$cvt_tz_l: addressing_mode(general); 
0608 1 | 
0604 


: Global Variables: 


& 
s48 


aa aa tt at at a et a ts = “a os ts 


global ; 
an\$gb_mode: byte, : current mode of operation 
anl$worst_error: this contains either success status or if 
' 


SF 
Se 


initialTanirms$_ok); ! errors occurred, it contains the first error 
! of the worst severity that occurred. 


‘ 
Own Variables: 


SSSETSE 


OuwFwn—oO 


Se Os Oe 0s Os Oe 00 Os Os Oe Oe Se S5Ge Se Ge be Ge 00 Ss On Oe Oo Se Os Ss Se Se Oe Oe Se Os Os Oe Oe Os St 6USs Go On Os On Os Oo Os SeSs Su teSs Sees be ee ET Es S 


age 


6 
Ss - Rein edule for ANALYZE/RMS_FILE 15-se0-1984 $7:35:8) ACIANS.B32:1" a 


SRMS - Routine for ANALYZE/RMS_FILE 14-Sep-19 
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Rsbttl *ANLSRMS = Main Routine for ANALYZE/RMS_FILE* 


—> + 


MFWN—O CONO UE wn O0an 


Funct tenet Description: 

This is the main routine, entered when the user performs an 
ANALYZE/RMS_FILE command. We decide which mode of operation 
has been requested and do it. 


i 

i 

i 

i 

i 

' Formal Parameters: 
° none 

‘ 

' Implicit I ts: 

: global data 
i 

i 

i 

i 

i 

i 

i 

‘ 

i 


Implicit Outputs: 
global data 


SFFSFSSSSSSSSSSSSSS EF 


Returned Value: 


' Side Effects: 


OD NOA NEW $0 ONO VE WN 0 OONOUE WUD “OO OOVNO VE WS" OOONOUE WN 


Ss 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 06 1 
1 0638 1 i-- 
1 0639 1 
1 0640 1 " 
: Rees global routine anl$rms: novalue = begin 
; Oeés LibSestablish(anl$worst_error_handler); 
1? Ree? ' See which mode the user has requested. The default is /CHECK. 
14 bec? if cli$present(describe('FDL")) then ( 
14 0648 onto mode = anl$k_fdl; 
14 0649 anl$fdT_mode(); 
14 0650 ) 
V4 0651 else if cli$present(describe("INTERACTIVE')) then ( 
14 geag ont $9p mode = anl$k_interactive; 
i? 963? ; anl$interactive_mode(); 
14 Be32 else if cli$present(describe(*STATISTICS')) then ( 
15 28 anl$gb_mode = anl$k_statistics; 
2 B63 ; anl$check_mode(); 
15 0689 else if cli$present(describe("SUMMARY')) then ( 
15 0 anl$gb_mode = anl$k_summary; 
13 1 anl$check_mode(); 
1 ¢ ) 
15 6 else ( 
15 0664 anl$gb_mode = anl$k_check; 
1 0665 ,; anl$check_mode(); 
161 066? 
16¢ 0668 ' if it was an interactive session, always return success. otherwise 
197 6° ' return worst error 
165 71 if -anl Sb _node eql anl$k_interactive then 
166 Ks exit(code=anirms$_ok) 
167 06735 2 else 


() 
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74 
75 
76 end; 


4C 44 46 60000 P.AAB: 
00000003 00004 P.AAA: 
ae * eet 1 
45 56 49 54 43 41 52 45 54 SE 49 QQ00C P.AAD: 


00000008 00018 P.AAC: 


00990099 ¢ 
53 43 49 56 53 49 54 41 00020 P.AAF: 


A 
0000000 O02C P.AAE: 
000000 09° 00 
59 52 41 4D 4D 55 5 


000 
00000007 0003C P.AAG: 
00000000° 00040 


00000 ANL$GB Sie tht 


00034 P.AAH: 
0 


3c 77:58:88 Dt 


$ 
; Sexit(code=.anl$worst_error or sts$m_inhib_msg); 


-TITLE 
- IDENT 


-PSECT 


“ADDRESS 
-PSECT 


00001 -BLKB 
000000006 00004 ANL SWORST ERROR: : 
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SPLITS ,.NOWRT ,NOEXE ,2 
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-AAB 
TERACTIVEN 


- AAD 
TATISTICS\ 


“vo a ad 
° 
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EY 


P.AAH 
SGLOBAL$ ,NOEXE ,2 


1 


ANLRMSS_ OK 


ANLRMS$ -OK. nee ALLOC 
ANLRMS$_A 
ANLRMSS_ “BACKUP ANLRMS$_BKT 


ANL 
ANLRMS$_BKTF 


E 
ANLRMSS$_ mh ANLRMS$_BKTLEVEL 


NLRMS$~ CHECK HDG 

ANLRMS$~CONTIG, ANLRMS$_CREATION 
ANLRMSS~CTLSIZE 

ANLRMSS~DA TAREC 
ANLRMS$~DATABKT 


VBN 
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NLSRMS = Main Routine for ANAL YZE/RMS 


MS FILE 


15 
14 


b-seoctgee 28:52:21 
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ANLRMS$_DUMPHEAD ING 
ANCRMSS= Eee are ERRORCOUNT 


ANLRMSS$"ERR 
ne ANLRMS$_EXPIRATION 


ANLRM 
ANLRMS$_LONGREC 
ANLRMS$_MAXRECSIZE 
ANLRMS$_NOBACKUP 
ANLRMS$"NOEXPIRATION 


DISKSVMSMASTER: CANALYZ.SRCIRMS.B832;1 


Page 


6 
(3) 


je ve Page 7 
DISKSVMSMASTE chwacre. Sec IRMS.832; 1 (3) 


-EXTRN ANLRMS$_NOSPANF ILLER 
-EXTRN ANLRMS$_P R 

-EXTRN ANLRMS$~PROLOGF LAGS 

EXT Ss =PROLOGVER 

-EXTRN ANLRMSS"PROT, ANLRMS$_RECATTR 
«EXTRN ANLRMSS$_ “RECEAT TANLARSS RECLAIMBKT 
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ERUIC 
-EXTRN ANLRMSS$_JNL, ANLRMS$_AIJNL 
-EXTRN ANLRMSS_ “BIJNL, ENLRMSS ATJNL 
-EXTRN ANLRMSS$— ATTOP ANLRMS$_BADCMD 
.EXTRN ANLRMS$~BADPATH 
-EXTRN ANLRMS$— “BADVEN ANLRMS$_DOWNHELP 
“EXTRN ANLRMS$~DOWNPATH 
.EXTRN ANLRMSS$_ PaPT WYBK T 
-EXTRN ANLRMS$-NODATA, ANLRMS$_NODOWN 
-EXTRN ANLRMS$_NONEXT, ime NORE CLAIMED 


“FDLBESTTRY 
“EXTRN ANLRMS$~F DLBUCKETSIZE 
“EXTRN ANLRMSS_FDLCLUSTERSIZE 
“EXTRN ANLRMS$~FDLCON 

“EXTRN ANLRMSS$~ FDLEXTENSION 


ILENAME 
-EXTRN ANLRMS$_FDLORG on eS FDLOWNER 


-EXTRN ANLRMS$~ “EBtne con 


~EXTRN Aes Het 


DLAREA 
-EXTRN ANLRMS$— 4th ANLRMS$_FDLCHANGES 
-EXTRN ANLRMSS_FDLDATAAREA 

~EXTRN ANLRMSS$_FDLDATAF ILL 

-EXTRN ANLRMS$_FDLDATAKEYCOMPB 

-EXTRN ANLRMS$~FDLDATARECCOMPB 

EXT $~ 4 DUPS 


~-EXTRN ANLRMS$~FDLINDEXAREA 
-EXTRN ANLRMS$—FDL INDE XCOMPB 
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EXTRN eet “BApBATART Ce 
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QP 
=] 
_— 
o 
>< 
cc 
Pd 
“ 

ON A<AA 


-EXTRN ANLRMSS$_ Bes — 
-EXTRN ANLRMS$_BADREAD 

«EXTRN ANLRMSS~ ~BADSIDRDUPCT 
-EXTRN ANLRMSS$_ eeetiontesl 
-EXTRN ANLRMS$_BADSIDRPTRSZ 
-EXTRN ANLRMS$_BADSIDRSIZE 
-EXTRN ANLRMS$_BADSTREAMEOF 
-EXTRN ANLRMS$_BADVBNF REE 
-EXTRN ANLRMS$_BKTLOOP 
-EXTRN ANLRMSS$_EXTENDERR 
-EXTRN ANLRMS$_FLAGERROR 
-EXTRN ANLRMSS$_MISSINGBKT 
-EXTRN ANLRMS$_NOTOK, ANLRMS$_SPANERROR 


< RECS 
-EXTRN ANLRMS$_ UNWIND ANLRMS$_VF CTOOSHORT 
-EXTRN ANLRMS$~CACHEFULL 

-EXTRN ANLRMS$_ EACHERELFALL 

~EXTRN ANLRMSS FACILITY 

~EXTRN ANE SCHECK RODE ANL $F DL_MODE 


EXTRN ANLSFORM ROR 
EXTRN ANLSINTERACTIVE MODE 
-EXTRN CLISPRESENT, LIBSESTABLISH 
-EXTRN OTSSCVT_TI_L, OTSSCVT_TZ_L 
-EXTRN SYSSEXIT 
-PSECT S$CODES,NOWRT,2 
000C 00000 -ENTRY ANL SANS . Save R2,R3 3 0641 
53 0000" CF 9E 00002 MOVAB NL$GB MODE . R3 3 
52 00000000G 00 9€ 00007 MOVAB CLISPRESEN Re 3 
0000v CF 9F OO00E PUSHAB ANLSUORST W énon HANDLER : 0643 
00000000G 00 01 FB 00012 CALLS , LIBSESTABLISH : 
0000" CF 9F 00019 PUSHAB y ; 0647 
62 01 FB 0001D CALLS #1, CLISPRESENT : 
OA 50 €9 00020 BLBC RO, 1$ ; 


wearer OOM aes i OT OaeTre—Ci‘tWP 


| 
| 
| 
| 
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| Routine Size: 
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eon 
0 


ILE 1$-5 
ANLSRMS = Main Routine for ANALYZE/RMS_FILE 14*S 
63 02 90 00023 
0000G CF 06 FB 009 6 
A 11 000 
0000" CF 9F 0002D 1$: 
62 01 Fe 00031 
OA 20 3 000 
63 0 0 00037 
0000G CF 9° FB 808 A 
6 11 0003F 
0000" CF 9F 00041 2$: 
62 01 FB 00045 
03 50 34 Bence 
6 04 90 00048 
12 #11 sie 
0000° CF 9F 00050 3$: 
62 01 FB 00038 
05 50 £9 00057 
63 05 90 0005A 
03 11 0005D 
63 01 90 OOOSF 4$: 
0000G CF 00 FB 00062 5$: 
03 63 91 00067 6$: 
08 12 0006 
000000006 8F DD 0006C 
09 11 00072 
E 04 A3 10000000 8F C9 00074 7$: 
000000006 00 01 FB 0007D 8$: 
04 00084 


133 bytes, 


Routine Base: 


SCODES + 0000 


on 1388 $3: 35:8) VAX-11 Bliss-32 V4.0-7 


DISKSVMSMASTER: CANALYZ. RCIRMS .B32; * ap 

2. ANL$GB_MODE 
#0, ANLSFDC_MODE 
P. AAC 
ai, LISPRESENT 

* ANL$GB_MODE 
ae ANLSINTERACTIVE_MODE 
P.AAE 
vi, ISPRESENT 
#4, ANL$GB_MODE 
5$ 


P.AAG 

4 CLISPRESENT 
3. ANL $GB_MODE 
#1, ANL$GB_MODE 
#0, ANLSCHECK_MODE 
ANL$GB_MODE, #3 
#ANLRMS$_OK 


rH page ieee Fatman ERROR, =-(SP) 
#1, SYSSEX 
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9 44 Rsbttl *ANLSUNWIND_HANDLER = Unwind to Caller’ 

7 : 
o678 ! Functional Description: 
0681 : This condition handler is established at various points 
068 ' in analyzrms and allows the stack to be unwound 

8 ; and execution continued after any of an assortment 
poe } of serious errors occurs. 
08 ' Formal Paramters: 
068 : signal_args = Address of signal argument List 
pone } mechanism_args = Address of mechanism argument List 
0690 ! Implicit Inputs: 
0691 : none 
069 ‘ 
069 ' Returned Value: 
0694 : ss$_resignal This was not an anlrms$_unwind condition. 
0695 : ss$_continue 
0696 . 
0697 ! Side Effects: 
bene anl$worst_error is updated with highest severity error. 
0700 leon 


AawN 
SS3seSss 
MEW — 
ANDES AARIPOPINIPMNGNPINGPYPINININIPINPININININIPINININININID 2 8 9 = 


WONOUSWN—-O0@n 
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SSN SSN NSN SSS 
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global routine anl$unwind_ handler (signal_args, mechanism_args) = begin 


map 
signal_args: ref bblock, ! Address of signal argument List 
mechanism_args: ref bblock; ! Address of mechanism argument List 
local 
code: bblock Clong], ! fondition code (longword) 
status; 
code = .signal_args (chf$l_sig_name]; ! Get condition code 


! If the condition is not anirms$unwind, then we resignal it. 


if .code nequ anirms$_unwind then 
return ss$_resignal 


It's a drastic structure error. We can no longer continue what we 
were doing. In interactive mode, we want to return to user command 
level. In check mode, we want to quit analyzing this file and 
99 on to the next file. In FDL mode, since there can only be 1 

ile spec, we just quit. In all cases, we put out an error message 
and back out by unwinding to the frame of the caller of the routine 
that called Lib$Sestablish. Note that since we do not resignal 
! the error to allow anl$worst_error_handler to save the anl$worst_error, 
we must save it here. 


else ( 
if severity level (.code) gtr : 
severity level (.anl$worst_error) ! If higher than watermark 
then anl$worst_error = .code; ! then set new worst error 


~~ 
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; 9 7 anl$format_error(anirms$_unwind) ; 
3 ? 735 status=$unwind(); 
3 ; f $ check (.status,.status); 
: 07 return ss$_continue; 
: Bf § ); - 
3 5 740 
s 0741 1 end; 
.EXTRN SYSSUNWIND 
001C 00000 «ENTRY ANLSUNWIND_HANDLER, Save R2,R3,R4 : 0702 
54 00000000G 8F 00 0000 MOVL MANLRMS$_UNWIND, R4 : 
5 04 AC 00 0000 MOVL SIGNAL_ARGS, RO 3 0712 
5 06 AQ 00 00000 MOVL 4(RO), CODE $ 
54 53 D1 00011 CMPL CODE, R4 : 0716 
06 13 00014 BEQL : 
50 0918 8F 3C 00016 MOVZWL #2328, RO 3; 0729 
04 00018 RET : 
50 53 DO OOOIC 1$: novi CODE, TMP_CODE 3 0730 
51 50 03 00 EF OOOTF EXTZvV #0, #3, TAP_CODE, R1 3 
50 50 01 00 EF 00024 EXTZv #0, #1, TMP_CODE, RO : 
50 04 C4 00029 MULL #4, RO 3 
51 50 ce 0002C SUBL RO, R1 : 
51 03; C oRe F ADDL #3, R1 : 
50 9000" CF DO 000 4 MOVL ANLSWORST ERROR, TMP_CODE 3 0731 
52 50 03 00 EF 0003 EXTZv #0, #3, TAP_CODE, R2 ; 
50 50 01 00 EF 0003C EXTZv #0, #1, TMP_CODE, RO 3 
50 9% C4 00041 MULL #4, RO : 
52 0 C2 00044 SUBL RO, R 3 
50 03 A2 9E odd MOVAB 3(R2), RO : 
50 51 D1 00048 cMPL) eT, RO : 
05 15 O004E BLEQ 3 
0000° CF 53 00 penae MOVL CODE, ANLSWORST_ERROR : 0732 
54 DD 00055 2$: PUSHL 3; 0734 
0000G CF 01 FB 00057 CALLS #1, ANLSFORMAT_ERROR : 
7E 7C Q005C CLRQ - : 0735 
000000006 00 02 FB 4 $44 CALLS #2, SYSSUNWIND 3 
09 50 €8 0006 BLBS STATUS, 3$ 3 0736 
50 DD 00068 PUSHL STATUS : 
00000000G 00 01 FB OOO6A CALLS #1, LIBSSIGNAL 3 
50 01 00 00071 3$: MOVL #1, RO ; 0738 
04 00074 RET : 0741 
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Rsbttl *ANLSWORST_ERROR_HANDLER = Baddest error handler in the West’ 


Functional Description: 

This condition handler is established by the main routine in 

It gains control when any error is signaled except 

for ANLRMS$_UNWIND, which is handled specially by the 
ANLSUNWIND_AANDLER. If the error signaled is more severe than any 
which has preceded it, save the error status as the 
anl$worst_error. The resignal the error so the last-chance 
condition handler can get a crack at the error. 


analyzrms. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
! Formal Paramters: 

; signal_args = Address of signal argument List 
mechanism_args = Address of mechanism array 

! 

' 

i 

i 

i 

i 

i 

i 

i 

i 


! Implicit Inputs: 
none 
Returned Value: 

ss$_resignal 


Side Effects: 
anl$worst_error is updated with highest severity error. 


Continue to search call frames. 


global routine anl$worst_error_handler (signal_args, mechanism_args) = begin 


signal_args: ref bblock, ! Address of signal argument List 


mechanism_args: ref bblock; ! Address of mechanism argument List 
local 

code: bblock Clong]; ! Condition code (longword) 
code = .signal_args (chf$l_sig_name); ! Get condition code 


s 
if severity igvet (.code) gtr 
severity_Tevel (.anl$worst_error) 


! If higher than watermark 
then anl$worst_error = .code; : 


“then set new worst error 
return ss$_resignal; 
end; 


000¢ 00000 ENTRY ANLSWORST_ERROR_HANDLER, Save R2.R3 
50 04 AC DO 00002 OVL  SIGNAL_ARGS, RO 
53 04 AQ D0 00006 MOVL  4(RO). “CODE 
50 53 DO OOOOA MOVE DE, TMP_CODE 
50 03 00 EF 0000) EXTZV , #3, TAP_CODE, RI 
50 01 00 EF 90012 EXTZV #0. #1. TMPTCODE. RO 
50 04 €4 0001 MULL2 #4. RO 
51 50 (2 QOOIA SUBL2 RO. RI 
51 03 ¢6 0001D ADDL2 «#3. RI 
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0000" CF DO MOV st af ROR T#P CODE : 0779 
52 50 g 0 EF xT Af et MP_CcODe, : 
j EF XTZ TMP CODE; 4 : 
C4 MULL no" 3 
2 SUBL +a R : 
03 A MOV 3(R2), RO : 
51 D cMPLSCséRRtT, «RO : 
‘ 33 3 See tODE. AMLSWORST ERROR : 0780 
4 0918 F 3¢ MOV EWL $5358, RO : 078s 
4 RET ; 0784 


3 Routine Size: 73 bytes, Routine Base: SCODES + OOFA 
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et SOR ON CODD NO NE UNI MOSR WED 


w 
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ooooo 
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LA AARON RUNURD 2 tt a a 
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wd 
wnr— 


EAE 


WEEE & BF AWIWWIWIAERIIPNPONDPDPPINININININPIPNINYDYD 0 9 3 0 0 0 ot tt 
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DISKSVMSMASTER: CANAL 
Bsbttl *ANLSINTERNALIZE_NUMBER = Convert String to Longword* 


“Functional Description: 
This routine will convert the ASCII representation of a decimal 
or hexadecimal number to a lonqword. It is here for lack of a 
better place. 


i 

i 

i 

' 

| 

! Formal Parameters: 
‘ string Address of d scetotor of ASCII number. Decimal 

¢ —s are just digits, while hexadec imal numbers 
; begin with 2X or are enclosed in 2x*...°. 

: longword Address of longword in which to return value. 

' Implicit Inputs: 

: global data 

! Implicit Outputs: 

; global data 

i 
i 
i 
i 
' 
' 


Returned Value 
True if muanber was valid, false if invalid. 


' Side Effects: 


global routine anl$internalize_number (string, longword) = begin 


bind : 
string_dsc = .string: descriptor; 


local 

status: long, 

sp: ref blockt ,bytel, 
hex_dsc: descriptor; 


! If the string is null, then it's invalid. 


if .string_dscClen] eqlu 0 then 
return false; 


! Split up depending upon whether it's a decimal or hex number. 
if ch$eql(minu(.string_dscllen],2),.string_dsc(ptr], 2,uplit byte("%x"'), * ") then ( 


! We have a hex number. Build a descr ipt or of the actual digits. 
i If the third character is an apostrophe, then we must find the ‘ 
i matching apostrophe. 


if trehert eres dsc(ptr)+2) sale see then 
ch$find cht string, dsc a ge ky dsc(ptr]+3, ***"); 
Hd o eqlu 0 oe 
return fa 
ae build descr iptorthens. *dsc,.sp- -string_dsc(ptrJ-3,.string_dsc(ptrJ+3); 
els 


¥Z.SRCIRMS.832;1 


Page 
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5 
) 


3 
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DISKSVMSMASTER: CANAL YZ.SRCIRMS.B32;1 


iptor(h os i al i ); 
ee Aye Mote tonpeoraee ash ity. 2,.string_dscl(ptrJ+2 


eur 


ig. de 
status = "aa tvt_ 


! We have a decimal number. Convert it and return the status. 


B fo 


p 5 status = otsScvt_ti_l(string_dsc,.longword,4,%b'11"); 
th return .status; 
08 
th end; 
-PSECT SPLITS,NOWRT,NOEXE,2 
58 25 00064 P.AAI: .ASCII \%x\ : 
-PSECT $CODES,NOWRT,2 
003¢ 000 ENTRY ANLSINTERNALIZE_NUMBER, Save R2,R3,R4,R5 ; 
5 08 3 0000 UBL2 #8, SP : 
5 06 AC OD 9000 VL STRING, RS : 
6 83 0009 TSTW (RS) : 
6— 13 00008 EOL 6$ ; 
50 65 3¢ 00000 MOV2WL (RS), RO : 
02 50 81 0001 CMPW SRO, «#2 : 
93 "8 0001 BLEQU i$ : 
50 é DO 0001 MOVL : 
54 04 AS DO 00018 18: MOVL ccs) : 
20 64 50 2D 0001C CMPCS tt #32, #2, P.AAL ; 
0000" CF 90021 : 
44 12 00024 BNEQ 5$ : 
27 02 aAa& 91 00026 CMPB (R46), #39 : 
21. 12 900 A BNEQ : 
50 65 5 002C MOVZWL (RS), RO 3 
50 93 ¢ 0002F SUBL2 #3, R 3 
03 A 50 27 3A 000 g Locé #39, RO, 3(R4) : 
92 12 000 BNEQ 23 : 
1 04 00039 CLRL R1 : 
1 D 9 28: TSTL SP 3 
4 BEQL 6$ : 
51 4 C2 0003F SUBL2 R4, R1 : 
6£ FD Al SE 00042 MOVAB <=3(R1), H : 
06 AE 03 Ab H 00046 MOVAB 3(R4), wel *pses4 : 
0B 11 00048 RB 4$ : 
6E 65 3¢€ 0004D 3$: MOVZWL (RS), HEX_DSC : 
6€ 02 ge 005 SUBL2 #2, HEX_DSC 3 
06 AE 02 aA& 9E 0005 VAB 2(R4), Ab _DSC+4 ; 
1 OO Bo 28 4%: PUSHL #1 3 
4 0D SA PUSHL #4 : 
08 AC bb 005¢ PUSHL LONGWORD ; 
OC AE 9F 0005F PUSHAB HEX_DSC : 
000000006 00 04 FB 00062 CALLS #4, ~OTSSCVT_T2Z_L : 


- 
oo 
~-oO 


3 Routine Size: 
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04 9 
93 DD O06 5$: 
4 DD 0006C 


ANCSINTERNAL TY 


08 af DD 0 
55 DD 
000000006 00 04 FB 00073 


50 D4 00078 6$: 
04 000 


126 bytes, Routine Base: S$CODES + 0143 


Bc 11:58:58 DISKSUMEMAS 


as 
LONGWORD 

#4, OTSSCVT_TIL 
RO 
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NOUS WO 0@ 
ONO NONI WIE. & BE WAAWIRPPONGPNIPINININININDYD 2 a 0 0 0 0 0 a tt 


SANS 


SOOoOQooooooooCceooo 
2 00 CD CD CD CD CD CD 


Bsbttl "ANLSCHECK_FLAGS = Check Flag Usage’ 


i Functional Description: 
: This routine is called to check the usage of flags in a flag 
byte/word/longword. This routine is here for no better place. 


Formal Parameters: 
von VBN of the bucket containing the flags. 
flags A longword somos the flags to be checked. 
flag_def A longword vector de a the valid flags. The 
zeroth Longword contains the bit number of the 
last valid flag. The remaining longwords contain 
zero if the flag is unused, non-zero otherwise. 


global data 


! Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


' 
i 
i Implicit Inputs: 
' 
i 


global routine anl$check_flags(vbn,flags,flag_def): novalue = begin 


bind 
flags_vector = flags: bitvector(], 
flag_def_vector = .flag_def: vectorl,long]; 


local 
i: long; 


! We will staple sit in a loop scanning the flag bits. If any flag is 
! set but undefined, we will issue an error message. 


incru i from 0 to 31 do ( 
f .flags_vector{.i] then 
if .i legu .flag_def_vector[0] then ( 
-flag_def_vectorL.i+1] eqlu 0 then ; 
a anl$format_error(anirms$_flagerror,.vbn,.i) 
else 
R anl$format_error(anlrms$_flagerror,.vbn,.i); 


return; 


end; 


0-74 P 
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RMS = Main Module for ANALYZE/RMS_FILE 1$-sep-1986 23: VAX=11 Bliss-32 v4.0-742 P 19 
y0e=000 AMSCHECK FLAGS © Check Flog Usesé 12a een ibe 17:85:85 | Pie eimeAaeteRcCAmAr re eactANs.e32:1°°"* chs 
0004 00 .ENTRY ANLSCHECK_FLAGS, Save R2 : 
Be So00s ACH ; . : $858 
20 08 ac E1 00004 18 BBC I, FLAGS_VECTOR, 3$ : 0896 
oC BC 3¢ D1 9009 CHL aF LAG-DEF : 089 
50 oC BC42 D it MOVAL @FLAG_DEFCIJ, RO + 0898 
Ab OS Oodle = STL BRO 
52 DD 00019 2$ PUSHL + 0901 
04 AC DD 0001B PUSHL BN : 
000000006 a DD oor PUSHL  #ANLRMS$_FLAGERROR : 
0000G CF FB § CALLS #3, ANLSFORMAT ERROR ‘ 
32 D6 00029 3$: INCL + 0895 
: ie cen ies | 
04 00030 ET t 0906 
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Esbttl “ANLSPREPARE_QUOTED_STRING = Prepare a Quoted String’ 


! Functional Description: 

This routine is called to prepare a quoted string for inclusion in 
an FDL specification, or perhaps in a formatted message. Preparing 
the string includes stripping trailing whitespace, doubling any 
Quotation marks, and enclosing it in quotation marks. 


Formal Parameters: } 
input dsc Descriptor of buffer with input thee P 
output _dsc Descriptor of buffer to receive output string. 
The Length is set correctly. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine anl$prepare_quoted_string(input_dsc: ref descriptor, 
output_dsc: ref descriptor): ; 
novalue = begin 


bind 
input_vector = .input_dscCptr]: vector(,bytel, 
output_vector = .output_dsc(ptr]: vector[,bytel; 


local 
i: signed long, 
trimmed_length: long; 


! Begin by geennter the input string from the end in order to eliminate 
' any trailing whitespace. We actually eliminate all control characters 
! so that we'll catch NULs too. 


i= (decru i from .input_dscClenJ-1 to 0 do = ! 

* i yo irqut.vettort.13 gtru ' * then exitloop .i); 
trimmed_length = .i + 1; 
! Put the opening quotation mark in the output buffer. 


output_vector([0] = ‘*"; 
output_dscllen] = 1; 


! Scan the input string from the beginning, moving each character into the 
' output buffer. Quotation marks must be doubled. 


incr i from 0 to .trimmed_length-1 do ( 


D1 SKSUMSMASTERSCANAL YS SRCIRMS.B32;1 
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480 


; Routine Size: 


RMS _ = Main Module for ANALYZE/RMS_FILE ihese0 -1984 o $3: 25:2] 
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if .input_vectorl.iJ ealu ~— Shep, f 
output_vector output ng Lends © a 
increment (output_dsc(Te 


); 

output_vectorl.output dscClen}] = -input_vector(l.i]; 
increment (output_dsclTenJ); 

! Add the closing quotation mark to the output buffer. 


output_vector[.output dscClenj] a rs 
increment (output_ dsc({Ten]); 


= 
oO 
o 
Cc 
3 
2) 
. 
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Se 
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003c 00000 ENTRY ANL SPREPARE QUOTED_STRING, Save R2,R3,R4,R5 ;: 
52 04 AC 7D 00002 mMOva Ine » R2 
54 04 A3 DO 00006 MOVL 4(R y 
50 62 3C OOO0A MOVZ2WL (R2), 
07 11 0000D BRB 2$ 
20 04 B240 91 OOOOF 1$: CMPB =s« GC R2)CII, #32 
04 1A 00014 BGTRU 3$ 
50 D7 00016 2$ DECL 
F511 00018 BRB 
50 D6 OO01A 3$ INCL TRIMMED_LENGTH 
64 22 90 0001C MOVB #34, (RZ) 
63 01 BO O001F MOVW = #1, (R3) 
51 01 CE 00022 MNEGL #1, I 
18 11 00025 BRB 6$ 
22 04 B241 91 00027 4$: CMPB  =s-s«G(R2)CID, #34 
09 12 0002C BNEQ 5$ 
55 63 3C 00026 MOVZWL (R3), RS 
6544 22 90 00031 MOVB #34, (R5)CR4] 
63 B6 00035 INCW (R35 
55 63 3C 00037 5$ MOVZWL (R3), RS 
6544 04 B241 90 0003A MOVB  a4(R2)CI1J, (RS5)CR4] 
63 B6 00040 INCW = (R3) 
E1 51 50 F2 00042 6$ AOBLSS TRIMMED_LENGTH, I, 4$ 
50 63 3C 00046 MOVZWL cy 
6044 22 90 00049 MOVB #34, (RO)CR4] 
63 B6 0004D INCW (R35 
04 0004F RET 


80 bytes, Routine Base: $CODE$ + 01F2 


0980 
0981 


1 
0 end eludom 
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# 
1 984 $3:38'8! VAKX-11 Bliss-32 V4.0-742 
4 11:52:58 DISKSVMSMASTER: CANALYZ.SRCJRMS.B32;1 
~EXTRN LIBSSIGNAL 


PSECT SUMMARY 


Name Bytes Attributes 
$GLOBALS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 70 NOVEC *NOWRT. RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 578 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


susecuns Syabols cocesee Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 17 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMS/OBJ=OBJ$:RMS MSRC$:RMS/UPDATE=(ENHS$:RMS) 


Size: 578 code + 78 data bytes 
Run Time: 0:16. 
Elapsed Time: 00:54. 
Lines/CPU Min: 3497 


Lexemes/CPU-Min: 16260 
seme Used: 170 pages 
Compiiation Complete 


roe 
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